object FormAlias: TFormAlias
  Left = 229
  Top = 152
  ActiveControl = EditAlias
  BorderIcons = []
  BorderStyle = bsToolWindow
  Caption = 'Aliases'
  ClientHeight = 444
  ClientWidth = 503
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = [fsBold]
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
    0000000080000080000000808000800000008000800080800000C0C0C0008080
    80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    0000000000000000000000000000000000000888880000000000000000000000
    0000444448800000000000000000000000004FFFF48000000000000000000000
    000004FFF48000000000000000000000000004FFF48000000000000000000000
    000004FFF48800000000000000000000000004FFFF4800000000000000000000
    0000004FFF48000000000000000000000000004FFF4880000000000000000000
    0000004FFFF48888800000000000000000000004FFF444448880000000000000
    00000004FFFFFFFF448888000000000000000004FFFFFFFFFF44488000000000
    000000004FFF4444FFFFF48880000000000000004FFF4CCC44FFFF4488000000
    000000004FFF4EEECC4FFFFF48800000000000004FFFF4FFEEC44FFFF4800000
    0000000004FFF480FFECC4FFF48800000000000004FFF48800FEC4FFFF480FF0
    0000000004FFFF48000FEC4FFF4800EFF000000004FFFF48000FEC4FFF48000E
    EFFFF000004444400FFFEC4FFF48000CCCEEEEFFFFFFFFFFFEEEC4FFFF480000
    44CCCCCEEEEEEEEEECCC4FFFFF4000000444444CCCCCCCCCC444FFFFF4000000
    004FFFF4444444444FFFFFFF4000000000044FFFFFFFFFFFFFFFFF4400000000
    00000444FFFFFFFFFFF444000000000000000000444444444440000000000000
    000000000000000000000000000000000000000000000000000000000000FFFF
    FFFFFF83FFFFFF01FFFFFF01FFFFFF81FFFFFF81FFFFFF80FFFFFF80FFFFFFC0
    FFFFFFC07FFFFFC007FFFFE001FFFFE0003FFFE0001FFFF00007FFF00003FFF0
    0001FFF00001FFF81000FFF80C009FF80E00C7F80E00E07C1800E0000000F000
    0001F8000003FC000007FE00000FFF80003FFFF001FFFFFFFFFFFFFFFFFF}
  KeyPreview = True
  Menu = MainMenu1
  OldCreateOrder = True
  Position = poScreenCenter
  Scaled = False
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  OnMouseMove = FormMouseMove
  OnShow = FormShow
  PixelsPerInch = 120
  TextHeight = 14
  object Bevel1: TBevel
    Left = 145
    Top = 299
    Width = 355
    Height = 27
    Shape = bsFrame
  end
  object ImagePointer: TImage
    Left = 124
    Top = 5
    Width = 21
    Height = 293
    OnMouseMove = FormMouseMove
  end
  object Label2: TLabel
    Left = 146
    Top = 3
    Width = 211
    Height = 14
    AutoSize = False
    Caption = 'Alias &Script'
    FocusControl = Script
    OnMouseMove = FormMouseMove
  end
  object LabelLines: TLabel
    Left = 385
    Top = 3
    Width = 114
    Height = 14
    Hint = 'Number of commands (lines) in the script'
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'Commands ='
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    OnMouseMove = FormMouseMove
  end
  object Bevel2: TBevel
    Left = 171
    Top = 301
    Width = 13
    Height = 23
    Shape = bsLeftLine
  end
  object BtnClear: TBitBtn
    Left = 475
    Top = 302
    Width = 22
    Height = 21
    Hint = 'Clears the script'
    Glyph.Data = {
      F6000000424DF60000000000000076000000280000000C000000100000000100
      0400000000008000000000000000000000001000000010000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
      00008888888888880000F888888888880000FFF8888888880000FFFFF8888888
      0000FFFFFFF888880000FFFFFF1178880000FF8FF1D997880000F888819D9778
      0000888887997337000088888877B333000088888883BB330000888888883BB3
      00008888888883BB000088888888883B00008888888888830000}
    ParentShowHint = False
    ShowHint = False
    Spacing = 9
    TabOrder = 5
    TabStop = False
    OnClick = BtnClearClick
    OnMouseMove = FormMouseMove
  end
  object BtnDeleteAlias: TBitBtn
    Left = 4
    Top = 299
    Width = 121
    Height = 27
    Hint = 
      'Delete the currently selected alias and all commands assigned to' +
      ' it'
    Caption = 'Dele&te Alias'
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      0400000000000001000000000000000000001000000010000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
      5555555555555555555555555555555555555555555555555555555555555555
      5555555555555555555555555555555555555555555555555555555555555555
      5555555FFFFFFFFFFFF55500000000000055557777777777775F501111111111
      110557F5FFFFFFFFFF7F501999999999910557F7777777777F7F501999999999
      910557F777777777757F5011111111111105575FFFFFFFFFFF75550000000000
      0055557777777777775555555555555555555555555555555555555555555555
      5555555555555555555555555555555555555555555555555555555555555555
      5555555555555555555555555555555555555555555555555555}
    NumGlyphs = 2
    ParentShowHint = False
    ShowHint = False
    Spacing = 9
    TabOrder = 10
    TabStop = False
    OnClick = BtnDeleteAliasClick
    OnMouseMove = FormMouseMove
  end
  object PanelNewAlias: TPanel
    Left = 4
    Top = 332
    Width = 496
    Height = 56
    TabOrder = 6
    OnMouseMove = FormMouseMove
    object Label1: TLabel
      Left = 8
      Top = 6
      Width = 54
      Height = 14
      Caption = 'Ne&w Alias'
      FocusControl = EditAlias
    end
    object BtnUpdate: TBitBtn
      Tag = 1
      Left = 378
      Top = 22
      Width = 110
      Height = 25
      Hint = 'Replaces the currently selected alias with the new alias name'
      Caption = 'Re&name Alias'
      Glyph.Data = {
        36010000424D3601000000000000760000002800000014000000100000000100
        040000000000C000000000000000000000001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888887777
        78888888000088888882222277788888000088888822222A2277888800008888
        888888822A277888000088887888888882A27777000088857788888887227227
        0000885D5788888822AA2A280000885D577888822AAAA278000085DDD5777888
        82AAA288000085DDDD558888882A278800005D5DD5588888882A288800005585
        577888888882888800008885D577788888888888000088885D55777777788888
        00008888855D5555558888880000888888855555888888880000}
      ParentShowHint = False
      ShowHint = False
      Spacing = -1
      TabOrder = 2
      OnClick = BtnAddAliasClick
      OnMouseMove = FormMouseMove
    end
    object BtnAddAlias: TBitBtn
      Left = 265
      Top = 22
      Width = 110
      Height = 25
      Hint = 'Add the above alias to the list of existing aliases'
      Caption = 'Add A&lias'
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
        55555555555FFFF55555555555000055555555555577775F5555555550222205
        5555555557F55F7F55555555502AA2055555555557F77F7F55555555502AA205
        5555555FF7F77F7FFFF55500002AA2000055557777577F77775F5022222AA222
        220557F5FFF77FFFFF7F502AAAAAAAAAA20557F7777777777F7F502AAAAAAAAA
        A20557F777777777757F5022222AA2222205575FFFF77F5FFF755500002AA200
        0055557777F77F7777555555502AA2055555555557F77F7F55555555502AA205
        5555555557F7757F555555555022220555555555575FFF755555555555000055
        5555555555777755555555555555555555555555555555555555}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = False
      Spacing = -1
      TabOrder = 1
      OnClick = BtnAddAliasClick
      OnMouseMove = FormMouseMove
    end
    object EditAlias: TEdit
      Left = 8
      Top = 22
      Width = 253
      Height = 25
      Hint = 'Enter the name of a new alias here'
      AutoSize = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      MaxLength = 60
      ParentFont = False
      ParentShowHint = False
      ShowHint = False
      TabOrder = 0
      OnKeyPress = EditAliasKeyPress
      OnMouseMove = FormMouseMove
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 425
    Width = 503
    Height = 19
    Align = alBottom
    BevelInner = bvLowered
    BevelOuter = bvNone
    TabOrder = 9
    object Status: TLabel
      Left = 1
      Top = 1
      Width = 501
      Height = 17
      Align = alClient
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
  end
  object BtnHelp: TBitBtn
    Left = 4
    Top = 402
    Width = 18
    Height = 18
    Hint = 'Help!'
    Glyph.Data = {
      D6000000424DD60000000000000076000000280000000C0000000C0000000100
      0400000000006000000000000000000000001000000010000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888778888
      0000888880077888000088880BB07888000088880BB088880000888880077888
      000088880BB077880000888770BB077800008800770BB0780000880B0770B078
      0000880BB00BB08800008880BBBB088800008888000088880000}
    TabOrder = 8
    TabStop = False
    OnClick = BtnHelpClick
    OnMouseMove = FormMouseMove
  end
  object BtnDone: TBitBtn
    Left = 390
    Top = 394
    Width = 110
    Height = 25
    Hint = 'Closes the aliases screen'
    Cancel = True
    Caption = '&Close'
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      0400000000000001000000000000000000001000000010000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
      55555555555F5555555555555505555555555555557FF5555555555550005555
      555555555777F555555555550CC05555555555557F57FF55555555550CE00555
      5555555575577F5555555550CEEC05555555555755557FF55555550CECEC0055
      5555557F5FF577F55555550C00CEC0555555557F775F575F55555500550CE005
      555555775575F57F555555555550CC055555555555575F7FF555555555550C00
      5555555555557577FF555555555550C005555555555557577FF555555555550C
      005555555555557577FF555555555550C005555555555557577F555555555555
      0000555555555555777755555555555555555555555555555555}
    NumGlyphs = 2
    ParentShowHint = False
    ShowHint = False
    TabOrder = 7
    OnClick = BtnDoneClick
    OnMouseMove = FormMouseMove
  end
  object BtnFunctions: TBitBtn
    Tag = 8
    Left = 196
    Top = 302
    Width = 22
    Height = 21
    Hint = 'Grab a function (Ctrl+F)'
    Glyph.Data = {
      E6000000424DE60000000000000076000000280000000E0000000E0000000100
      0400000000007000000000000000000000001000000010000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
      8800888888888888880080888888888888007808888088880800880788088888
      8000880788080880800088078808807880008807880887088000770788080880
      8000800078088888800088078880888808008807708888888800888008888888
      88008888888888888800}
    Spacing = -1
    TabOrder = 3
    TabStop = False
    OnClick = BtnFunctionsClick
    OnMouseMove = FormMouseMove
  end
  object Script: TMemo
    Left = 145
    Top = 20
    Width = 355
    Height = 278
    Hint = 'Command script'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Courier New'
    Font.Style = []
    ParentFont = False
    ScrollBars = ssBoth
    TabOrder = 1
    WordWrap = False
    OnChange = ScriptChange
    OnMouseMove = FormMouseMove
  end
  object BtnVar: TBitBtn
    Tag = 7
    Left = 218
    Top = 302
    Width = 22
    Height = 21
    Hint = 'Grab a variable (Ctrl+R)'
    Glyph.Data = {
      E6000000424DE60000000000000076000000280000000E0000000E0000000100
      0400000000007000000000000000000000001000000010000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
      77007777CCCCCCC77700777CEEEEEEEC770077CECCCCCCCEC7007CECCEECEECC
      77007CECECCEECEC77007CECECCCECCEC7007CECECCCECCEC7007CECCECCEECE
      C70077CECCEECECEC70077CEECCCCCEC7700777CCEEEEEC7770077777CCCCC77
      77007777777777777700}
    Spacing = -1
    TabOrder = 4
    TabStop = False
    OnClick = BtnVarClick
    OnMouseMove = FormMouseMove
  end
  object BtnUndo: TBitBtn
    Left = 148
    Top = 302
    Width = 22
    Height = 21
    Hint = 'Undo script changes'
    Enabled = False
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      0400000000008000000000000000000000001000000010000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
      7777777777777777777777777888888877777777000000088777777702222220
      887777770000002208777777777777020877777777877770A877777770877770
      A87777770A88880AA8777770AA0000AA0777770AAAAAAAA077777770AA000007
      777777770A877777777777777077777777777777777777777777}
    ParentShowHint = False
    ShowHint = False
    Spacing = 9
    TabOrder = 2
    TabStop = False
    OnClick = BtnUndoClick
    OnMouseMove = FormMouseMove
  end
  object EditCopy: TEdit
    Left = 254
    Top = 396
    Width = 121
    Height = 22
    TabStop = False
    TabOrder = 11
    Visible = False
  end
  object BtnAM: TBitBtn
    Tag = 2
    Left = 174
    Top = 302
    Width = 22
    Height = 21
    Hint = 'Grab an alias/macro (Ctrl+A)'
    Glyph.Data = {
      56010000424D560100000000000076000000280000001C0000000E0000000100
      040000000000E000000000000000000000001000000010000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888388
      83888888888F888F000088888888B388B3888888887F887F000088078888B383
      B3887F88887F8F7F000088807888B3B3B38887F8887F7F7F000088880788BBBB
      B388887F8877777F000088888078BB8BB3888887F877877F000081888107B888
      B88F888F7F7888780000918891807888887F887F87F888880000911191880788
      887FFF7F887F88880000999998888078887777788887F8880000891918888807
      8887F7F888887F88000089898888888088878788888887880000889188888888
      88887F8888888888000088988888888888887888888888880000}
    NumGlyphs = 2
    TabOrder = 12
    TabStop = False
    OnClick = BtnAMClick
    OnMouseMove = FormMouseMove
  end
  object GridAlias: TPortalGrid
    Left = 8
    Top = 0
    Width = 121
    Height = 293
    Hint = 'Existing aliases'
    DataSource = DSAliases
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    Options = [dgTitles, dgColLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack]
    ParentFont = False
    ParentShowHint = False
    ReadOnly = True
    ShowHint = False
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'Arial'
    TitleFont.Style = [fsBold]
    OnDblClick = GridAliasDblClick
    OnEnter = GridAliasEnter
    OnKeyPress = GridAliasKeyPress
    OnMouseMove = FormMouseMove
    Columns = <
      item
        Expanded = False
        FieldName = 'Alias'
        Width = 117
        Visible = True
      end>
  end
  object MainMenu1: TMainMenu
    Left = 268
    Top = 96
    object Main1: TMenuItem
      Caption = 'Main'
      Visible = False
      object MenuHelp: TMenuItem
        Caption = 'Help'
        ShortCut = 112
        OnClick = BtnHelpClick
      end
      object CtrlF1: TMenuItem
        Tag = 998
        Caption = 'Ctrl+F'
        ShortCut = 16454
        OnClick = BtnFunctionsClick
      end
      object CtrlR1: TMenuItem
        Tag = 997
        Caption = 'Ctrl+R'
        ShortCut = 16466
        OnClick = BtnVarClick
      end
      object CtrlZ1: TMenuItem
        Caption = 'Ctrl+Z'
        ShortCut = 16474
        OnClick = CtrlZ1Click
      end
      object Esc1: TMenuItem
        Caption = 'Esc'
        ShortCut = 27
        OnClick = BtnDoneClick
      end
      object CtrlA1: TMenuItem
        Tag = 999
        Caption = 'Ctrl+A'
        ShortCut = 16449
        OnClick = BtnAMClick
      end
    end
  end
  object TimerPointer: TTimer
    Enabled = False
    Interval = 50
    OnTimer = TimerPointerTimer
    Left = 36
    Top = 152
  end
  object DSAliases: TDataSource
    DataSet = Datawell.TableAliases
    OnDataChange = DSAliasesDataChange
    Left = 36
    Top = 64
  end
end
